home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Random / pick-random-n next >
Text File  |  1998-10-22  |  306b  |  14 lines
  1. pick-random-n n material &key (seed nil)
  2.  
  3.  
  4. like pick-random but lets you pick more than one
  5.  
  6. (pick-random-n 3 '(a b c d e) :seed 0.2)
  7. ->(e b c)
  8.  
  9. (pick-random-n 4 '(a b c d e) :seed (sqrt 2))
  10. ->(c b a d)
  11.  
  12. (pick-random-n 21 '(a b c d e) :seed 0.618033988749894)
  13. ->(c d e a b d e c a b e c d a b c b d e a b)
  14.